MacWarehouse Macintosh Games/MacWarehouse Macintosh Games.iso/AMBER demo/ROXY/ROXY.dxr/00468.ls

Text File | 1996-10-18 | 10.0 KB | 286 lines

on usePeekUnit
  global oStoryteller, oPuppeteer, gPeekPlayList, gScanFinish, gOriginPoint, gCPU
  setState(oStoryteller, #playerHasPeekUnit, #inUse)
  killVideo()
  updateStage()
  idle()
  cursorOff()
  set peekBody to 38
  set peekAntenna to 46
  set peekRollUp to 44
  set peekText to 40
  set pkScanIcon to 41
  set pkBarIcon to 42
  set pkAmberIcon to 43
  set buttonCoords to point(247, 270) + gOriginPoint
  set textList to getProp(the lsMultiFrames of oPuppeteer, #peekText)
  puppetSprite(peekBody, 1)
  set the stretch of sprite peekBody to 0
  set the ink of sprite peekBody to 8
  set the castNum of sprite peekBody to getProp(the lsForegroundData of oPuppeteer, #PeekDown)
  set the loc of sprite peekBody to point(320, 200) + gOriginPoint
  puppetSprite(peekAntenna, 1)
  set the stretch of sprite peekAntenna to 0
  set the ink of sprite peekAntenna to 36
  set the castNum of sprite peekAntenna to getProp(the lsForegroundData of oPuppeteer, #peekAntenna)
  set the loc of sprite peekAntenna to point(320, 200) + gOriginPoint
  set peekAnim to getProp(the lsForegroundData of oPuppeteer, #PeekUpAnim)
  set peekVideo to getProp(the lsForegroundData of oPuppeteer, #PkVideoNormal)
  puppetSprite(peekRollUp, 1)
  set the movieRate of sprite peekRollUp to 0
  set the movieTime of sprite peekRollUp to 0
  set the loc of sprite peekRollUp to point(317, 189) + gOriginPoint
  set the castNum of sprite peekRollUp to peekAnim
  setTransition(oPuppeteer, #fadeIn)
  set the inventoryStatus of oPuppeteer to #cool
  updateDisplay(oPuppeteer)
  if gCPU = #PC then
    suspendSounds(#fadeOut)
  end if
  set the movieRate of sprite peekRollUp to 1
  repeat while the movieTime of sprite peekRollUp < the duration of cast peekAnim
    updateStage()
  end repeat
  set the castNum of sprite peekBody to getProp(the lsForegroundData of oPuppeteer, #PeekUp)
  set camSprite to peekRollUp
  set the loc of sprite camSprite to point(317, 132) + gOriginPoint
  set the castNum of sprite camSprite to getProp(peekVideo, #PkNone)
  puppetSprite(peekText, 1)
  set the stretch of sprite peekText to 0
  set the castNum of sprite peekText to getProp(textList, #none)
  set the loc of sprite peekText to point(317, 226) + gOriginPoint
  puppetSprite(pkScanIcon, 1)
  set the stretch of sprite pkScanIcon to 0
  set the loc of sprite pkScanIcon to buttonCoords
  set currentStatus to getState(oStoryteller, #PKscanStatus)
  if (currentStatus <> #Offline) and (currentStatus <> #CantAttach) then
    set the castNum of sprite pkScanIcon to getAt(getProp(the lsMultiFrames of oPuppeteer, #scanIcon), 3)
  else
    set the castNum of sprite pkScanIcon to getAt(getProp(the lsMultiFrames of oPuppeteer, #scanIcon), 2)
  end if
  puppetSprite(pkBarIcon, 1)
  set the stretch of sprite pkBarIcon to 0
  set the loc of sprite pkBarIcon to buttonCoords
  if getState(oStoryteller, #BarOnline) = 1 then
    set the castNum of sprite pkBarIcon to getAt(getProp(the lsMultiFrames of oPuppeteer, #barIcon), 3)
    buildDefaultPlaylist()
  else
    set the castNum of sprite pkBarIcon to getAt(getProp(the lsMultiFrames of oPuppeteer, #barIcon), 2)
  end if
  puppetSprite(pkAmberIcon, 1)
  set the stretch of sprite pkAmberIcon to 0
  set the loc of sprite pkAmberIcon to buttonCoords
  if getState(oStoryteller, #AMBERisOnline) = 1 then
    set the castNum of sprite pkAmberIcon to getAt(getProp(the lsMultiFrames of oPuppeteer, #amberIcon), 3)
  else
    set the castNum of sprite pkAmberIcon to getAt(getProp(the lsMultiFrames of oPuppeteer, #amberIcon), 2)
  end if
  set hotStuff to getState(oStoryteller, #PeekDisplay)
  setState(oStoryteller, #PeekDisplay, #none)
  if hotStuff = #barStatus then
    if getState(oStoryteller, #BarOnline) then
      mouseDown(script "bar icon --")
    else
      mouseDown(script "scan icon --")
    end if
  end if
  if hotStuff = #scanStatus then
    mouseDown(script "scan icon --")
  end if
  if hotStuff = #amberStatus then
    mouseDown(script "amber icon --")
  end if
  if hotStuff = #psionicFragment then
    hideCursor()
    resetPeeKdisplay()
    set peekVideo to getProp(the lsForegroundData of oPuppeteer, #PkVideoNormal)
    set the castNum of sprite camSprite to getProp(peekVideo, #PkFragment)
    set the movieTime of sprite camSprite to 0
    pushVideo()
    wait(#videoStop)
    if getState(oStoryteller, #houseLightsAreOn) = 1 then
      set the castNum of sprite peekText to getProp(textList, #fragmentCollected)
    else
      set the castNum of sprite peekText to getProp(textList, #psionicFragment)
    end if
    updateStage()
  end if
  if hotStuff = #ghostKnife then
    hideCursor()
    set gPeekPlayList to [#PkFadeIn, #PkKitchenGhost, #PkFadeOut]
    setState(oStoryteller, #PKbarStatus, #activityDetected)
    trimState(#cameraFeedbackRemaining, #ghostKnife)
    mouseDown(script "bar icon --")
  end if
  if hotStuff = #ghostlyKey then
    hideCursor()
    set gPeekPlayList to [#PkFadeIn, #PkBedroomGhost, #PkFadeOut]
    setState(oStoryteller, #PKbarStatus, #activityDetected)
    trimState(#cameraFeedbackRemaining, #ghostlyKey)
    mouseDown(script "bar icon --")
  end if
  if hotStuff = #crazyLR then
    hideCursor()
    set gPeekPlayList to [#PkFadeIn, #PkCrazyLR, #PkFadeOut]
    setState(oStoryteller, #PKbarStatus, #activityDetected)
    trimState(#cameraFeedbackRemaining, #crazyLR)
    mouseDown(script "bar icon --")
  end if
  if hotStuff = #crazyDR then
    hideCursor()
    set gPeekPlayList to [#PkFadeIn, #PkCrazyDR, #PkFadeOut]
    setState(oStoryteller, #PKbarStatus, #activityDetected)
    trimState(#cameraFeedbackRemaining, #crazyDR)
    mouseDown(script "bar icon --")
  end if
  if hotStuff = #KdKnob then
    hideCursor()
    set gPeekPlayList to [#PkFadeIn, #PkKdKnob, #PkFadeOut]
    setState(oStoryteller, #PKbarStatus, #activityDetected)
    trimState(#cameraFeedbackRemaining, #KdKnob)
    mouseDown(script "bar icon --")
  end if
  if hotStuff = #bloodBath then
    hideCursor()
    set gPeekPlayList to [#PkFadeIn, #PkBloodBath, #PkFadeOut]
    setState(oStoryteller, #PKbarStatus, #activityDetected)
    trimState(#cameraFeedbackRemaining, #bloodBath)
    mouseDown(script "bar icon --")
  end if
  if hotStuff = #BARstartup then
    set gPeekPlayList to [#PkNone]
    setState(oStoryteller, #PKbarStatus, #Online)
    mouseDown(script "bar icon --")
    buildDefaultPlaylist()
    wait(90)
    setState(oStoryteller, #PKbarStatus, #noActivity)
    idle()
    mouseDown(script "bar icon --")
  end if
  if hotStuff = #amberStartup then
    hideCursor()
    setState(oStoryteller, #PKamberStatus, #ModulatingEEG)
    mouseDown(script "amber icon --")
    updateStage()
    wait(240)
    set the castNum of sprite peekText to getProp(textList, #none)
    updateStage()
    wait(20)
    setState(oStoryteller, #PKamberStatus, #oneMoment)
    updateStage()
    wait(200)
    set the castNum of sprite peekText to getProp(textList, #none)
    updateStage()
    wait(20)
    setState(oStoryteller, #PKamberStatus, #surfsUp)
    updateStage()
    wait(50)
    set the castNum of sprite peekText to getProp(textList, #none)
    updateStage()
    wait(20)
    setState(oStoryteller, #PKamberStatus, #surfsUp)
    updateStage()
    wait(50)
    set the castNum of sprite peekText to getProp(textList, #none)
    updateStage()
    wait(20)
    setState(oStoryteller, #PKamberStatus, #surfsUp)
    updateStage()
  end if
  if hotStuff = #irregularSurface then
    hideCursor()
    setState(oStoryteller, #PKscanStatus, #CantAttach)
    mouseDown(script "scan icon --")
    updateStage()
    wait(120)
    setState(oStoryteller, #PKscanStatus, #Offline)
    mouseDown(script "scan icon --")
  end if
  if hotStuff = #badScan then
    hideCursor()
    if getState(oStoryteller, #DoorWithScanUnit) = #none then
      set currentState to #Offline
    else
      set currentState to #Online
    end if
    setState(oStoryteller, #PKscanStatus, #NoResidue)
    mouseDown(script "scan icon --")
    updateStage()
    wait(170)
    setState(oStoryteller, #PKscanStatus, currentState)
  end if
  if hotStuff = #interruptedScan then
    hideCursor()
    if getState(oStoryteller, #DoorWithScanUnit) = #none then
      set currentState to #Offline
    else
      set currentState to #Online
    end if
    setState(oStoryteller, #PKscanStatus, #Interrupted)
    mouseDown(script "scan icon --")
    updateStage()
    wait(110)
    setState(oStoryteller, #PKscanStatus, currentState)
  end if
  if hotStuff = #goodScan1min then
    hideCursor()
    set finishTime to gScanFinish
    setState(oStoryteller, #PKscanStatus, #Preamble)
    mouseDown(script "scan icon --")
    updateStage()
    wait(70)
    idle()
    setState(oStoryteller, #PKscanStatus, #Wait1min)
    set gScanFinish to finishTime
    mouseDown(script "scan icon --")
  end if
  if hotStuff = #goodScan2min then
    hideCursor()
    set finishTime to gScanFinish
    setState(oStoryteller, #PKscanStatus, #Preamble)
    mouseDown(script "scan icon --")
    updateStage()
    wait(70)
    idle()
    setState(oStoryteller, #PKscanStatus, #Wait2min)
    set gScanFinish to finishTime
    mouseDown(script "scan icon --")
  end if
  if hotStuff = #goodScan3min then
    hideCursor()
    set finishTime to gScanFinish
    setState(oStoryteller, #PKscanStatus, #Preamble)
    mouseDown(script "scan icon --")
    updateStage()
    wait(70)
    idle()
    setState(oStoryteller, #PKscanStatus, #Wait3min)
    set gScanFinish to finishTime
    mouseDown(script "scan icon --")
  end if
  if hotStuff = #goodScan4min then
    hideCursor()
    set finishTime to gScanFinish
    setState(oStoryteller, #PKscanStatus, #Preamble)
    mouseDown(script "scan icon --")
    updateStage()
    wait(70)
    idle()
    setState(oStoryteller, #PKscanStatus, #Wait4min)
    set gScanFinish to finishTime
    mouseDown(script "scan icon --")
  end if
  if hotStuff = #goodScan5min then
    hideCursor()
    set finishTime to gScanFinish
    setState(oStoryteller, #PKscanStatus, #Preamble)
    mouseDown(script "scan icon --")
    updateStage()
    wait(70)
    idle()
    setState(oStoryteller, #PKscanStatus, #Wait5min)
    set gScanFinish to finishTime
    mouseDown(script "scan icon --")
  end if
end